home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / aed243a.zip / UPGRADE4.BAT < prev   
DOS Batch File  |  1990-06-10  |  6KB  |  263 lines
  1. echo off
  2.  
  3. echo RBBS batch file to upgrade RBBS v17.3x with .MRGs using QB4.5
  4. if %1?==? goto Usage
  5. if %2?==? goto Usage
  6. goto Start
  7.  
  8. :Usage
  9. echo Usage: UPGRADE xxxx [Y][N] [/R]
  10. echo .
  11. echo        where xxxx is the upgrade thingie to add to the end of the
  12. echo        MRG filenames.  Add the Y switch if you want to compile
  13. echo        the upgraded files, or N to skip the compile.  Add the
  14. echo        /R if you only want to do RBBS (not config).
  15. echo .
  16. echo    Ex: UPGRADE 173B Y to upgrade v17.3A to v17.3B & compile
  17. goto End
  18.  
  19. :Start
  20.  
  21. if not exist C:\QB45\BC.EXE goto NoQB
  22. REM if not exist C:\QB45\LINK.EXE goto NoLINK
  23. if not exist C:\QB45\BLED.EXE goto NoBLED
  24. if not exist C:\QB45\LIB\BCOM45.LIB goto NoBCOM
  25.  
  26. if not exist RBBS-PC.BAS goto NoPC
  27. if not exist RBBSSUB1.BAS goto NoSUB1
  28. if not exist RBBSSUB2.BAS goto NoSUB2
  29. if not exist RBBSSUB3.BAS goto NoSUB3
  30. if not exist RBBSSUB4.BAS goto NoSUB4
  31. if not exist RBBSSUB5.BAS goto NoSUB5
  32. if not exist RBBS-VAR.BAS goto NoRVAR
  33.  
  34. if %3?==/R? goto ChkOBJ
  35. if %3?==/r? goto ChkOBJ
  36.  
  37. if not exist CONFIG.BAS goto NoCNFG
  38. if not exist CNFG-SUB.BAS goto NoCSUB
  39. if not exist CNFG-VAR.BAS goto NoCVAR
  40.  
  41. :ChkOBJ
  42.  
  43. if %2?==N? goto DoneOBJ
  44. if %2?==n? goto DoneOBJ
  45.  
  46. if not exist LINK4.DAT goto NoDAT
  47.  
  48. if not exist 10-NET.OBJ goto No10
  49. if not exist ANSI17.OBJ goto NoANSI
  50. if not exist BDRIVEC2.OBJ goto NoBD
  51. if not exist FOSSCOMM.OBJ goto NoFOSS
  52. if not exist GIVEBK31.OBJ goto NoGIVE
  53. if not exist PC-NET.OBJ goto NoPCNET
  54. if not exist QBARCV6.OBJ goto NoQBARCV
  55. if not exist RBBSDV.OBJ goto NoDV
  56. if not exist RBBSML.OBJ goto NoML
  57. if not exist RBBSUTIL.OBJ goto NoUTIL
  58. if not exist XMODEM.OBJ goto NoXMOD
  59. if not exist RBBSHS.OBJ goto NoHS
  60. if not exist BASNOV.OBJ goto NoNOV
  61.  
  62. :DoneOBJ
  63.  
  64. if not exist ANSIED.BAS goto A0
  65. if not exist RBBS-VAR.MOD goto NoMOD
  66.  
  67. :A0
  68.  
  69. if exist CVAR%1.BAS del CNFG-VAR.BAS
  70. if exist CVAR%1.BAS ren CVAR%1.BAS CNFG-VAR.BAS
  71. if exist RVAR%1.BAS del RBBS-VAR.BAS
  72. if exist RVAR%1.BAS ren RVAR%1.BAS RBBS-VAR.BAS
  73.  
  74. if %3?==/R? goto A2
  75. if %3?==/r? goto A2
  76.  
  77. if not exist CNFG%1.MRG goto A1
  78. C:\QB45\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
  79. del CONFIG.BAS
  80. del CNFG%1.MRG
  81. ren CNFG%1.BAS CONFIG.BAS
  82.  
  83. :A1
  84. if not exist CSUB%1.MRG goto A2
  85. C:\QB45\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
  86. del CNFG-SUB.BAS
  87. del CSUB%1.MRG
  88. ren CSUB%1.BAS CNFG-SUB.BAS
  89.  
  90. :A2
  91. if not exist R-PC%1.MRG goto A3
  92. C:\QB45\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
  93. del RBBS-PC.BAS
  94. del R-PC%1.MRG
  95. ren R-PC%1.BAS RBBS-PC.BAS
  96.  
  97. :A3
  98. if not exist RSB1%1.MRG goto A4
  99. C:\QB45\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
  100. del RBBSSUB1.BAS
  101. del RSB1%1.MRG
  102. ren RSB1%1.BAS RBBSSUB1.BAS
  103.  
  104. :A4
  105. if not exist RSB2%1.MRG goto A5
  106. C:\QB45\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
  107. del RBBSSUB2.BAS
  108. del RSB2%1.MRG
  109. ren RSB2%1.BAS RBBSSUB2.BAS
  110.  
  111. :A5
  112. if not exist RSB3%1.MRG goto A6
  113. C:\QB45\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
  114. del RBBSSUB3.BAS
  115. del RSB3%1.MRG
  116. ren RSB3%1.BAS RBBSSUB3.BAS
  117.  
  118. :A6
  119. if not exist RSB4%1.MRG goto A7
  120. C:\QB45\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
  121. del RBBSSUB4.BAS
  122. del RSB4%1.MRG
  123. ren RSB4%1.BAS RBBSSUB4.BAS
  124.  
  125. :A7
  126. if not exist RSB5%1.MRG goto A8
  127. C:\QB45\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
  128. del RBBSSUB5.BAS
  129. del RSB5%1.MRG
  130. ren RSB5%1.BAS RBBSSUB5.BAS
  131.  
  132. :A8
  133. if not exist AEDFIX.MRG goto A9
  134. C:\QB45\BLED /B/L ANSIED.BAS AEDFIX.MRG AEDFIX.BAS
  135. del ANSIED.BAS
  136. del AEDFIX.MRG
  137. ren AEDFIX.BAS ANSIED.BAS
  138.  
  139. :A9
  140.  
  141. if %2?==N? goto End
  142. if %2?==n? goto End
  143.  
  144. :A10
  145. echo Compiling RBBS-PC.BAS...
  146. C:\QB45\BC RBBS-PC.BAS,,NUL,/O/C:4096/S/E/MBF;
  147. echo Compiling RBBSSUB1.BAS...
  148. C:\QB45\BC RBBSSUB1.BAS,,NUL,/X/O/MBF;
  149. echo Compiling RBBSSUB2.BAS...
  150. C:\QB45\BC RBBSSUB2.BAS,,NUL,/O/E/MBF;
  151. echo Compiling RBBSSUB3.BAS...
  152. C:\QB45\BC RBBSSUB3.BAS,,NUL,/O/E/MBF;
  153. echo Compiling RBBSSUB4.BAS...
  154. C:\QB45\BC RBBSSUB4.BAS,,NUL,/O/E/MBF;
  155. echo Compiling RBBSSUB5.BAS...
  156. C:\QB45\BC RBBSSUB5.BAS,,NUL,/O/E/MBF;
  157. if exist ANSIED.BAS echo Compiling ANSIED.BAS...
  158. if exist ANSIED.BAS C:\QB45\BC ANSIED.BAS,,NUL,/X/O/C:4096/E/MBF;
  159. if not exist ANSIED.OBJ LINK @LINK4.DAT
  160. if exist ANSIED.OBJ LINK @LINK4A.DAT
  161.  
  162. if %3?==/R? goto End
  163. if %3?==/r? goto End
  164.  
  165. echo Compiling CONFIG.BAS...
  166. C:\QB45\BC CONFIG.BAS,,NUL,/O/E/C:4096/S/MBF;
  167. echo Compiling CNFG-SUB.BAS...
  168. C:\QB45\BC CNFG-SUB.BAS,,NUL,/O/E/C:4096/S/MBF;
  169. LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM,,,C:\QB45\LIB\BCOM45.LIB/EXEPACK;
  170.  
  171. goto End
  172.  
  173. :NoQB
  174. echo Missing C:\QB45\BC.EXE... aborted
  175. goto End
  176. REM :NoLINK
  177. REM echo Missing C:\QB45\LINK.EXE... aborted
  178. REM goto End
  179. :NoBLED
  180. echo Missing C:\QB45\BLED.EXE... aborted
  181. goto End
  182. :No10
  183. echo Missing 10-NET.OBJ... aborted
  184. goto End
  185. :NoANSI
  186. echo Missing ANSI17.OBJ... aborted
  187. goto End
  188. :NoBD
  189. echo Missing BDRIVEC2.OBJ... aborted
  190. goto End
  191. :NoFOSS
  192. echo Missing FOSSCOMM.OBJ... aborted
  193. goto End
  194. :NoGIVE
  195. echo Missing GIVEBK31.OBJ... aborted
  196. goto End
  197. :NoPCNET
  198. echo Missing PC-NET.OBJ... aborted
  199. goto End
  200. :NoQBARCV
  201. echo Missing QBARCV6.OBJ... aborted
  202. goto End
  203. :NoDV
  204. echo Missing RBBSDV.OBJ... aborted
  205. goto End
  206. :NoML
  207. echo Missing RBBSML.OBJ... aborted
  208. goto End
  209. :NoUTIL
  210. echo Missing RBBSUTIL.OBJ... aborted
  211. goto End
  212. :NoXMOD
  213. echo Missing XMODEM.OBJ... aborted
  214. goto End
  215. :NoHS
  216. echo Missing RBBSHS.OBJ... aborted
  217. goto End
  218. :NoNOV
  219. echo Missing BASNOV.OBJ... aborted
  220. goto End
  221. :NoPC
  222. echo Missing original RBBS-PC.BAS... aborted
  223. goto End
  224. :NoSUB1
  225. echo Missing original RBBSSUB1.BAS... aborted
  226. goto End
  227. :NoSUB2
  228. echo Missing original RBBSSUB2.BAS... aborted
  229. goto End
  230. :NoSUB3
  231. echo Missing original RBBSSUB3.BAS... aborted
  232. goto End
  233. :NoSUB4
  234. echo Missing original RBBSSUB4.BAS... aborted
  235. goto End
  236. :NoSUB5
  237. echo Missing original RBBSSUB5.BAS... aborted
  238. goto End
  239. :NoRVAR
  240. echo Missing original RBBS-VAR.BAS... aborted
  241. goto End
  242. :NoCNFG
  243. echo Missing original CONFIG.BAS... aborted
  244. goto End
  245. :NoCSUB
  246. echo Missing original CNFG-SUB.BAS... aborted
  247. goto End
  248. :NoCVAR
  249. echo Missing original CNFG-VAR.BAS... aborted
  250. goto End
  251. :NoDAT
  252. echo Missing LINK4.DAT... aborted
  253. goto End
  254. :NoBCOM
  255. echo Missing C:\QB45\LIB\BCOM45.LIB... aborted
  256. goto End
  257. :NoMOD
  258. echo Missing RBBS-VAR.MOD (for ANSIED.BAS)... aborted
  259. goto End
  260.  
  261.  
  262. :End
  263.